home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / POINTERS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  412 b   |  23 lines
  1. PROGRAM pointer_use_example;
  2.  
  3. TYPE name  = STRING[20];
  4.  
  5. VAR  my_name : ^name; (* my_name is a pointer to a STRING[20] *)
  6.      my_age  : ^INTEGER;  (* my_age is a pointer to an INTEGER *)
  7.  
  8. BEGIN
  9.  
  10.   new(my_name);
  11.   new(my_age);
  12.  
  13.   my_name^ := 'John Q Doe';
  14.   my_age^ := 27;
  15.  
  16.   WRITELN('My name is ',my_name^);
  17.   WRITELN('My age is ',my_age^:3);
  18.  
  19.   dispose(my_name);
  20.   dispose(my_age);
  21.  
  22. END.
  23.